home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form frmSources
- BorderStyle = 3 'Fixed Dialog
- Caption = "Sources of Income"
- ClientHeight = 1872
- ClientLeft = 2460
- ClientTop = 3108
- ClientWidth = 3168
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 7.8
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- LinkTopic = "Form2"
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 1872
- ScaleWidth = 3168
- Begin VB.CommandButton cmdCompute
- Caption = "Compute Total Income"
- Height = 495
- Left = 120
- TabIndex = 6
- Top = 1200
- Width = 2895
- End
- Begin VB.TextBox txtDividend
- Height = 285
- Left = 1680
- TabIndex = 5
- Top = 840
- Width = 1335
- End
- Begin VB.TextBox txtInterest
- Height = 285
- Left = 1680
- TabIndex = 4
- Top = 480
- Width = 1335
- End
- Begin VB.TextBox txtWages
- Height = 285
- Left = 1680
- TabIndex = 3
- Top = 120
- Width = 1335
- End
- Begin VB.Label lblDividend
- Caption = "Dividend Income"
- Height = 255
- Left = 120
- TabIndex = 2
- Top = 840
- Width = 1455
- End
- Begin VB.Label lblInterest
- Caption = "Interest Income"
- Height = 255
- Left = 240
- TabIndex = 1
- Top = 480
- Width = 1335
- End
- Begin VB.Label lblWages
- Caption = "Wages"
- Height = 255
- Left = 960
- TabIndex = 0
- Top = 120
- Width = 615
- End
- Attribute VB_Name = "frmSources"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub cmdCompute_Click()
- Dim sum As Single
- sum = Val(txtWages.Text) + Val(txtInterest.Text) + Val(txtDividend.Text)
- frmIncome.txtTotal.Text = FormatCurrency(Str(sum))
- frmSources.Hide
- End Sub
-